home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QRZ! Ham Radio 8
/
QRZ Ham Radio Callsign Database - Volume 8.iso
/
pc
/
files
/
mac
/
chess_hc.hqx
/
Chess Stack1.0
/
ChessStack V1.0
/
card_6435.txt
< prev
next >
Wrap
Text File
|
1988-06-28
|
5KB
|
217 lines
-- card: 6435 from stack: in.0
-- bmap block id: 7661
-- flags: 4000
-- background id: 3239
-- name: Options
----- HyperTalk script -----
on closeCard
global communicationsMode
if communicationsMode is "Packet" then
setBaud card field "tncBaudRate"
else
setBaud card field "ModemBaudRate"
sendSPort 1,false,"ATS0=1" & return
end if
end closeCard
-- part 4 (field)
-- low flags: 00
-- high flags: 6002
-- rect: left=56 top=157 right=222 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 24
-- style flags: 8448
-- line height: 32
-- part name: hamID
-- part 8 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=88 top=251 right=284 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 24
-- style flags: 8448
-- line height: 32
-- part name: TncBaudRate
-- part 9 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=273 top=158 right=192 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 24
-- style flags: 8448
-- line height: 32
-- part name: PhoneNumber
-- part 10 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=314 top=219 right=252 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 24
-- style flags: 8448
-- line height: 32
-- part name: ModemBaudRate
-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=455 top=300 right=331 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
if card field "cm" is "Packet" then
if card field "hamID" is empty or card field "TncBaudRate" is empty then
show card field "Warning"
play "no use"
repeat while the sound is not "done"
end repeat
else
visual effect iris close
pop card
end if
else
if card field "cm" is "Modem" then
if card field "PhoneNumber" is empty or card field "ModemBaudRate" is empty then
show card field "Warning"
play "no use"
repeat while the sound is not "done"
end repeat
else
visual effect iris close
pop card
end if
end if
end if
end mouseUp
-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=65 top=68 right=99 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: Packet
----- HyperTalk script -----
on mouseUp
global communicationsMode
put "Packet" into communicationsMode
put "Packet" into card field "cm"
set textStyle of card field "Packet" to bold
set textStyle of card field "Modem" to plain
end mouseUp
-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=301 top=70 right=101 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Modem
----- HyperTalk script -----
on mouseUp
global CommunicationsMode
put "Modem" into communicationsMode
put "Modem" into card field "cm"
set textStyle of card field "Packet" to plain
set textStyle of card field "Modem" to bold
end mouseUp
-- part 17 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=224 top=290 right=309 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cm
-- part 20 (field)
-- low flags: 81
-- high flags: 2001
-- rect: left=44 top=120 right=268 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 20
-- style flags: 8448
-- line height: 26
-- part name: Warning
----- HyperTalk script -----
on mouseUp
hide card field "Warning"
end mouseUp
-- part contents for card part 15
----- text -----
Packet
-- part contents for card part 16
----- text -----
Modem
-- part contents for card part 17
----- text -----
Packet
-- part contents for card part 20
----- text -----
You may NOT exit this card
until you have set the options !!!!
-- part contents for card part 4
----- text -----
n6phj
-- part contents for card part 8
----- text -----
9600